(defun getdigits (num)
    (loop while (>= (/ num 10) (/ 1 10))
		collect (mod num 10)
		do
		(setq num (floor (/ num 10))) ))


(defun checkpalilst (lst)
    (if  (equal (reverse lst) lst)
	 	 T
		nil ))


(defun checkpalinum (num)
  (checkpalilst (getdigits num)))


(loop for i from 999 downto 1 do
 (loop for j from 999 downto 1 do
	(if (checkpalinum (* i j))
	 	(* i j))))

